* lisp/emacs-lisp/package.el (package--remove-hidden): Fix logic

(Bug#20930)

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index a148783d0c2bd7a0ddf5197698e5ddf641b0ca36..7894aafe20dbaa55a1caf24a3dcc076adaefb13f 100644 (file)
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -2596,9 +2596,11 @@ to their archives."
                         (out))
                    (while pkg-list
                      (let ((p (pop pkg-list)))
-                       (if (>= (package-desc-priority p) max-priority)
+                       (let ((priority (package-desc-priority p)))
+                         (if (< priority max-priority)
+                             (setq pkg-list nil)
                            (push p out)
-                         (setq pkg-list nil))))
+                           (setq max-priority priority)))))
                    (nreverse out)))
                 (pkg-list
                  (list (car pkg-list))))))